(status_message): Pass Faset index argument as a lisp object, so as to work

with USE_LISP_UNION_TYPE.

diff --git a/src/process.c b/src/process.c
index 08030c944df4165c5eb4c76b2d88f644ec7804f4..2fdb2c2cbb07ac043423c09d6d784adc719e260c 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -479,7 +479,7 @@ status_message (p)
          c1 = STRING_CHAR ((char *) SDATA (string), 0);
          c2 = DOWNCASE (c1);
          if (c1 != c2)
-           Faset (string, 0, make_number (c2));
+           Faset (string, make_number (0), make_number (c2));
        }
       string2 = build_string (coredump ? " (core dumped)\n" : "\n");
       return concat2 (string, string2);